Imports Microsoft.VisualBasic

Friend Class SendMailObject_GoDaddy
    Inherits SendMailObject_CDOCredentials

    Public Sub New( _
                ByVal sEmailServer As String, _
                ByVal sUserID As String, _
                ByVal sPassword As String)

        MyBase.New(sEmailServer, sUserID, sPassword)
    End Sub

    Public Overrides Function SendMessage(ByVal oMessage As Message) As String
        oMessage.SenderEmail = msUserID
        oMessage.SenderName = msUserID
        Return MyBase.SendMessage(oMessage)
    End Function
End Class